program main

    integer :: i
    integer :: a(2, 3) = reshape([(i,i=1,6)], [2,3])

    call prt(a(:, 1))   ! 数组切片
    call prt(a(1, :))   ! 临时数组，type(:n)%elem 由于存储不连续，容易产生临时数组

contains

    subroutine prt(a)
        integer, intent(in) :: a(:)
        print *, a
    end subroutine prt

end program main
